<!--#include file="Firewall.asp"-->
<!--#include file="Ini.asp"-->
<!--#include file="../AspLib/Functions.asp"-->

<%
sAcao = Request("ACAO") 
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open sCo1, sCo2, sCo3

EMISSAO = Request("EMISSAO")
ESCOLA = Request("ESCOLA")

If sACAO <> "E" Then
  AEMISSAO = Request("AEMISSAO")
'RESPONSE.WRITE EMISSAO
'RESPONSE.END
  MEMISSAO=DireitizaString(MONTH(EMISSAO),2,"0") &"/" & DireitizaString(DAY(EMISSAO),2,"0") &"/" & YEAR(EMISSAO)
  MAEMISSAO=DireitizaString(MONTH(AEMISSAO),2,"0") &"/" & DireitizaString(DAY(AEMISSAO),2,"0") &"/" & YEAR(AEMISSAO)

    LIVRO=TRIM(Request("LIVRO"))
    MATERIA=TRIM(Request("MATERIA"))
    SERIE=TRIM(Request("SERIE"))
    TIPO=TRIM(Request("TIPO"))
    NOTIFICACAO=TRIM(Request("NOTIFICACAO"))
    DIVULGADOR=TRIM(Request("DIVULGADOR"))

  sEMISSAO=DireitizaString(MONTH(NOW()),2,"0") &"/" & DireitizaString(DAY(NOW()),2,"0") &"/" & YEAR(NOW()) &" " & TIME()
  
  If  sACAO = "I" then
    sSql = "Insert Into NOTIFICACAO(COD_ESCOLA,LIVRO,MATERIA,SERIE,TIPO,NOTIFICACAO,EMISSAO,DIVULGADOR,MOVIMENTADO) " &_
           " VALUES("& ESCOLA & ",'"& LIVRO &"','"& MATERIA &"','"& SERIE &"','"& TIPO &"','"& NOTIFICACAO &"','"& MEMISSAO &"','"& Session("Usuario") &"','"& SEMISSAO &"') "
'RESPONSE.WRITE SSQL
'RESPONSE.END
    Conn.Execute(sSql)
  ELSE
    sSql = "Update NOTIFICACAO Set  LIVRO= '"& LIVRO &"'" &_
           ",MATERIA='"& MATERIA &"'" &_
           ",SERIE='"& SERIE &"'" &_
           ",TIPO='"& TIPO &"'" &_
           ",DIVULGADOR='"& Session("Usuario") &"'" &_
           ",NOTIFICACAO='"& NOTIFICACAO &"'" &_
           ",EMISSAO='"& MEMISSAO &"'" &_
           ",MOVIMENTADO='"& SEMISSAO &"'" &_
           " Where COD_ESCOLA = " & ESCOLA &" AND EMISSAO='" & MAEMISSAO & "'"
'RESPONSE.WRITE SSQL
'RESPONSE.END
    Conn.Execute(sSql)	
  End If
Else
     sSql="Delete From NOTIFICACAO Where COD_ESCOLA = " & ESCOLA &" AND EMISSAO='" & EMISSAO & "'"
     Conn.Execute(sSql)
End If	
Conn.Close : Set Conn = Nothing
Response.Redirect "palm_escola_notificacoes.asp?ESCOLA=" & ESCOLA
%>